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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


} 
| 
| 
. | 
i. ‘ | 
7% a 
Ee ® 
3* w 
:* THIS SOFTWARE iy A gt | UNDER A LICENSE AND MAY BE USED AND gd Ut * 
:* ONLY IN neeoe DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
7* TRANSFERRED. * 
;* ® 
3@ phe ge IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
¢@ CORPORATION. * 
3* x 
3* ® 
3* * 
7* ® 
7* * 
3* ® 
++ 
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ITY FOR THE USE OR RELIABILITY OF ITS 


BILITY 
IS NOT SUPPLIED BY DIGITAL. 
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Facility: FAL (DECnet File Access Listener) 


Abstract: 
0 This . oy pumate the state table manager and the state transition 
table for FAL. 
9 Environment: VAX/VMS, user mode 
Author: James A. Krycka, Creation Date: 17-JUN-1977 
Modified By: 
vO3-005 JAKO135 J A Krycka 05-MAR-1984 


Correct occurrence of "Root feate Label in state table S113 for 
wildcard rename. 


V03-004 JAK0128 J A Krycka 16-SEP-1983 
CRC check data that is being discarded during file transfer 
error recovery. 


v03-003 gax0} <0 J A Krycka 29-JUL-1983 
Provide better error recovery in the file transfer mode storage 
state (ST7) and minor cl egnup in other file transfer mode 
states (ST4, ST5, and ST6). 

| 


V03-002 JAKO0104 Krycha 19-APR-1982 
Changes to see. vant mized file transfer mode storage and 
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retrieval. 


Malik 
Support the DAP RENAME operation. 


AX/VMS 
FAL.SR chP 


23-Nov-1982 
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FALSTATE = STATE TRANSITION PROCESSING 
v04-000 DECLARATIONS 


~SBTTL DECLARATIONS 


: Include Files: 


«MACRO STATE_INIT LABEL 
»ALIGN LONG 

LABEL: : 

COUNT...=0 
-ENDM = =STATE_INIT 


OO O09 09090909 09 09 090909 SIN NII NINN NIN NIOOOAOAO 
WR SO ODNOAUE WN 0 ODNOAOU EWN OWOONOAU 


i.e., the state of a new state), where: 
NAME = the name of the state. 
-MACRO STATE NAME 


NAME=COUNT... 
-ENDM = STATE 


++ 
TRAN defines a state transition table entry, where: 


(Null denotes goto next transition entr 
FAILURE = name of the state to goto on action rou 


“MACRO TRAN. VALUE , ACTION, SUCCESS FAILURE 
-WORD M_MATCH 


RN BD OODOOODOOOO0O0 00000 


MOOD NAUE WIN OOD NOAUE WN (SO OONAUE 


ee es ss ss st 


s+ 
; STATE_INIT initializes the state transition table, where: 
: LABEL = the global symbol to denote the start of the table. 


SSEbH986 01:17:97 ERAYSRCHPACSrATE mR:1 | "28° b 


SDAPHDRDEF ; Define DAP message header 
SDAPACCDEF ; Define DAP Access message 
SDAPCTLDEF 3; Define DAP Control message 
SDAPCONDEF ; Define DAP Continue Transfer message 
SDAPCMPDEF ; Define DAP Access Complete message 
8 $F ALWRKDEF :; Define FAL Work Area symbols 
; Macros: 


++ 
; STATE defines a transfer of control point in the state transition table 


: VALUE = the value to compare against the state transition value. 

: (NuLl denotes that state value is a match. 

: ACTION = address of optional action routine to execute. 

3 (NuLL denotes no action routine to execute.) 

: SUCCESS = name of the state to goto on action rouitne success. 

3 (If no action routine is specified, then this path is taken.) 
| 
| 
| 


-) 
Line failure. 
(NuLL denotes goto next transition entry.) 
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FALSTATE = STATE TRANSITION PROCESSING 16-SEP-1984 01:47: AX/VMS Macro V04-00 Pa 
v04-000 FALSSTATE = STATE TABLE MANAGER met Bhi 95398 FAL.SRCJFALSTATE.MAR; 1 y 4 
7 ~SBTTL FALSSTATE = STATE TABLE MANAGER 
0000 4 -PSECT FALSCODE NOSHR,EXE,RD,NOWRT,BYTE 
7 +4 
4 Functional Description: 
8 | FALSSTATE controls the execution of FAL by maintaining its state context 
05 and executing action routines as directed by the state transition table. 
$ Calling Sequence: 
$% BSBW FALSSTATE 
6 Input Parameters: 
00 Re Address of state transition table 
00 R8 Address of FAL work a 
00 Ro Address of DAP control block 
00 R10 Address of FAB 
0 R11 Address of RAB 


Implicit Inputs: 


FAL$Q_STATE_CTX 
FAL$B~VALUE 


Output Parameters: 
RO-R7 Destroyed 
Implicit Outputs: 


FAL$Q_STATE_CTX 
F AL$B~ VALUE 


Completion Codes: 
Each action routine is required to return a success/failure (or a 
true/false) code in RO which is used by FALSSTATE to determine the 
next state to enter. 

Side Effects: 


None 


DONA AE WW OOH NO MEW 2 ODO NOM RMD ODO SOUND IOI OVS >- 


tM QOOOTOOOOOCOOOOOOOOOOOMWMccacddc 


SOOooooooQooooooooooosoooooooooooooo°ooo 
PRIPIPOPIPINININPINPIPINININININININININIDN 2 2 9 9 9 SS SO OSS OY 


SOoOoOoooooooooooooooooooooooaGa 


FALSTATE - STATE TRANSITION PROCESSING 
v04-000 FALSSTATE = STATE TABLE MANAGER 
0 1 FALSSTATE:: 
53 52 00 § MOVL 
37 63 «=€©—601~—ts«é#EO 4 10$ BBS 
0c 63 00 59 5 BBS 
10 AB OLA 1 0008 § CMPB 
05 13 0010 BEQL 
53 08 cd 001 8 ADDL2 
rf 11. 001 ] BRB 
54 O4A 00 Bat 0 20$: MOVL 
+ 018 31 BEQL 
08 AB 52 7D Baie 3 MOVQ 
64 16 1 JSB 
52 08 AS 7D 0023 $e mova 
08 50 E8 0027 5 BLBS 
54 03 A3 08 00 EF OQO2A 36 EXTZV 
06 11 0030 37 BRB 
54 02 A3 08 OO EF Os $3 508 EXTZV 
53 6244 7E 0038 #240 40$ MOVAQ 
003C $e) 
003C $s 
Ss tes BRB 
05 OO3E 244 50$: RSB 


R2,R3 
#V_EXIT,FLAGS(R3) 598 
#V"MATCH, FLAGS (R35 ,20$ 
YACUE (R35 ,FALSB_VALUE ( 
8,R3 

10$ 

ACTION(R3) ,R& 


Re FALS_STATE_CTX(RB) 
FAL$Q_STATE_CTX(R8) ,R2 
#0, #8, FAILURE (R3) ,R4 
#0,,#8,SUCCESS(R3) ,R4 
(R2)CR4I,R3 


10$ 


247 
217 


Se Se Se Ge Se Ge Ge Ge Ge Se Se Se Ge Ge Ge Ge Ge Se we Ge Se Se Ge 


; Get success 


93 AX/VMS Macro V04-00 
: FAL.SRCJFALSTATE.MAR; 1 


engry hy 
Initialize state transition 

entry address 
Branch if end of table 
Branch if any value is a match 

; Is state value a match? 
Branch if yes 
No, form address of next table entry 
Try again 
Get address of action routine 
Branch if no routine specified 
Save state table context <R2,R3> 
Execute action routine 
Restore state table context <R2,R3> 
Branch on success 
Get failure table entry index 

(as an meterer integer value) 

‘ able entry index 


Page 


(as an unsigned integer value) 
Compute address of new table entry 
taking advantage of the fact that 
each entry is & bytes long 
ater’ again 

x 
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FALSTATE = STATE TRANSITION PROCESSING 16-SEP-1984 01:47: AX/VMS Macro _V04-00 Page 7 
v04-000 FALSSTATE_TABLE = FAL STATE TRANSITION T 873Eb=1 3be B1:15:97 UPALOSRCIPAL STATE MAR: 1 - (5) 
~SBTTL FALSSTATE TABLE = FAL STATE TRANSITION TABLE 
~SBTTL $10 == INITIALIZATION 
0000 ~PSECT FALSSTATE_TABLE SHR,NOEXE,RD,NOWRT,QUAD 


p++ 
; Define beginning (entry point) of state transition table. 


STATE_INIT FALSSTATE_TABLE 


SSsssooooce 


: Note: Success from FALSINJT means that a Configuration message has been 
5 received; failure denotes that one has not been received. 


3 State Value Action-Routine Success Failure Comments 


TRAN, FALSI 

"hier FALSN 
TRAN  OAPSK_CNF_MSG, FAL$D 
TRAN, FALS$O 


£m ; See note above 


eee 


T 

E 

8 

9 

0 

4 

2 ++ 
: Initialization state (also called setup state in DAP specification). 
9 

0 

4 

5 

6 

7 
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FALSTATE = STATE TRANSITION PROCESSING 16-SEP-1984 01:47: AX/VMS Macro V04-00 Page 8 
v04-000 ST1 == FILE ACCESS eset P bt: 45:93 LEAL SRCIFAL STATE MARS 1 . (6) 
8 9 -SBTTL ST1 == FILE ACCESS 
ue p++ 
te ; Generalized file access state. 
0 75 ; Note: The check for a Continue Transfer message and response of an Access 
8 0 a6 $ Complete noasegr in state ST1 is to help solve an error recovery problem 
5 8 a4 ; for wildcard file deletion and wildcard file execution. | 
8 8 3 State Value Action-Routine Success Failure Comments | 
8 8 1 STATE $T1 
g TRAN FALSNEXT_MSG, $T1 
0028 28 TRAN  BAPSK_CNF_MSG, FALSDECOBDE_CNF, $10, $11 | 
0030 Se TRAN DAPSK_ATT_MSG, FALSDECODE_ATT, ST1, $T1 
0038 5 TRAN DAPSK“ACC"MSG, FALSDECODE-ACC. ST1_1, S11 
0040 86 TRAN DAPSK_TIM_MSG, FALSDECODE_TIM, ST1, ST1 
0048 387 TRAN  DAPSKIPRO-MSG, FALSDECODE-PRO, ST1.  $T1 
005 88 TRAN DAPSK_ALL_MSG, FALSDECODE_ALL, ST1, ST1 
0058 289 TRAN DAPSK_KEY_MSG, FALSDECODE_ KEY, ST1, $T1 
0060 390 TRAN DAPSKTCONTMSG, FALSDIR_END, ‘STO; S10 =; See note above | 
0068 291 TRAN, FALSOUT-OF_SEQ, ST1, $T1 | 
0070 $36 
0070 93 STATE §$T1_1 | 
0070 94 TRAN DAPS$K_OPEN FALSFIL_PARSE, ST1_1A, STO 
0078 295 TRAN  DAPSKICREATE, FALSCREATE, S127 5T0 | 
0080 296 TRAN DAP$K_DIR_LIST, FALSDIR_PARSE, ST8, STO 
0088 997 TRAN  DAPSKERASE FALSFIL-PARSE, $T1_1B, STO | 
0090 98 TRAN DAP$K~SUBMIT FALSSUBAIT, ST2, STO 
0098 299 TRAN  DAPSKTEXECUTE, FALSFIL_PARSE, $T11_1C, STO 
00A0 300 TRAN DAPSKLOAD, FALSOPEN ST1-1D, S10 
00A8 301 TRAN  DAPSKTRENAME, FALSFIL_PARSE, ST1~1E. STO 
0080 302 TRAN, SINVIACCFUNC,ST1, | ST1 
0088 0 
0088 04 STATE ST1_1A 
0088 05 TRAN ‘ FALSCHECK_WILD, ST9, ; True/False 
00cO 306 TRAN " FALSOPEN, ST2, sT0 
00c8 307 
00C8 308 STATE ST1_1B 
00c8 309 TRAN . FALSCHECK_WILD, ST10, ; True/False 
0006 310 TRAN ‘ FALSERASE, STO, STO 
0008 311 | 
0008 \¢ STATE S$T1_1C€ 
0008 1 TRAN . FALSCHECK_WILD, ST11, ; True/False 
00EO 314 TRIN, FALSEXECUTE, STO, STO 
00E8 15 
tS 16 STATE $T1_1D 7 
443 1 TRAN é FALSLOAD_IMAGE, EXIT, EXIT ; VMS specific 
SOO 15 STATE $T11_1E 
bors 20 TRAN FALSINIT_RENAME, STO 
OF8 321 TRAN FALSCHECR_WILD, $113, ST12  ; True/False | 


00 Page 9 | 
MA 
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FALSTATE = STATE TRANSITION PROCESSING 1 mits ht 7 01340303 AX/VMS M V04- 
v04-000 ST2 == RECORD ACCESS -SEP-1984 01:17: FAL. SRCIFA (STA TE .MAR;1 (7) 
19 ; -SBTTL ST2 == RECORD ACCESS 
1 5 y | 
1 gi Senerel teed record access state (including record stream establishment and 
61 5 5: ; termination.) 
8138 4 3 State Value Action-Routine Success Failure Comments 
$138 1 STATE $T2 
0100 § TRAN FALSNEXT_MSG ST 
0108 TRAN  OAPSK_CTL_MSG, FALSDECOBE_CfL, $12.1, ST 
8118 4 TRAN ga CMP_MSG, FALSDECODE_CMP, ST ee Ot 
0190 2 TRAN FALSOUT_OF_SEQ, ST2, ST 
0120 38 STATE $T2_1 | 
0120 38 TRAN DAPSK_CONNECT, FALSCONNECT ST2, ST2 : One stream max 
0128 339 TRAN DAPSKIGET_READ, FALSCHECK_FTM, S16,  $T4 : True/False 
0130 40 TRAN DAP$ UT WRITE, FALSCHECK-F TM, ST7, ST5 ; True/False 
0138 $0) TRAN DAPSK_UPDATE, STgA. EXIT 
0140 4g TRAN  DAPSKIDELETE. FALSDELETE, ST2, ST 
0148 34 TRAN DAPSK_FIND, FALSFIND, ST2, ST2 
0150 44 TRAN DAPSK_REWIND, FALSREWIND, ST2, ST2 
0158 45 TRAN DAPSK_DISPLAY, FALSDISPLAY, ST2, ST2 
0160 346 TRAN DAPSKTEXTEND_B, FALSINIT_XABCHN,ST2B,  ST2 
0168 347 TRAN DAP$ REE, FALSFREE, ST2, ST2 
0170 $08 TRAN DAPS$K K-REL EASE FALSRELEASE st. ST2 
0178 349 TRAN _—DAPS$K “TRUNCATE, FALSTRUNCATE, ST2,  $T2 
0180 $29 TRAN DAPS$K K-FLUSH, FALSFLUSH, ST2, ST2 
0188 51 TRAN DAPSK— _SPACE_FW, FALSSPACE_Fw, air? ST2 
0190 $26 TRAN pares, _ SPACE “BW, FALSSPACE Bw, ST, ST2 
a $27 TRAN FALSINV_CTLFUNC,ST2, ST2 
C1A0 $22 STATE ST2.2 3: Differentiate 
01A0 56 TRAN DAPSK_DISCONN, FALSDISCONNECT, ST2, ST2 3; disconnect 
O1A8 8357 TRAN . . S$T3_1, EXIT 3 request from 
0180 358 ; close request 
01B0 359 
0180 360 STATE ST2A 
0180 61 TRAN . ror MSG, . ST2 
0188 6¢ TRAN  OAPSK_DAT_MSG, FALSUPDATE $12. ST2 
01C0 6 TRAN ‘ FALSOUT_OF_SEQ, ST2, ST2 
01C8 64 
01¢8 65 STATE ST2B 
Bice $6 TRAN FALSNEXT_MSG, ST 
1D 6 TRAN  OAPSK_ALL_MSG, FALSDECODE_ALL, $128, ST 
1D8 368 TRAN  DAPSKICTLIMSG, FALSDECODE-CTL, $128.1, ST 
O16 $9 TRAN, FALSOUT_OF~SEG, ST2,- ° ST2 
iB 71 STATE ST2B_1 
168 ce TRAN” DAPSK_EXTEND_E, FALSEXTEND, S12, $12 
170 30-37 TRAN, FALSINV_CTLFUNC,ST2, ST | 
} 


] 

| 

E 15 
FALSTATE - STATE TRANSITION PROCESSING 16-SEP-1984 01:47: AX/VMS Macro V04-00 Page 10. FA 
v04-000 STS == FILE CLOSE -SEP-1984 01:17: 93 FAL. SRCIF ALSTA TE.MAR;1 ° 18) | Sy 
1F 75 .SBTTL ST3 <= FILE CLOSE | FA 
1F 6 FA 
1F 77 ++ FA 
if a ; Generalized file close state (for non-wildcard operations). | aa 
1F C ; Note: Access Spapiete (disconnect) is logically a record processing operation, FA 
12 not a file close operation. Consequently, it is handled by state ST2. > 
git ; Note: State $T3_1 is nomally entered from state ST2_2. | 4 
ne 72 State Value Action=-Routine Success Failure Comments ba 
Str : STATE S$T3 FA 
O1F 88 TRAN 3 FALSNEXT_MSG, $13 FA 
0200 389 TRAN  OAPSK_CMP_MSG, FALSDECOBE_CMP, $13.1, 5ST3 FA 
8 9 ay TRAN ’ FALSOUT_OF-SEQ, ST3; ST3 ra 
0210 8 STATE $13.1 FA 
0210 9 TRAN DAPS$K_CLOSE FALSCLOSE, STO, $13 FA 
0218 394 TRAN DAPSK_ = CHANGE B, PALSINIT XABCHN,ST3A, ST3 FA 
0220 395 TRAN DAPS$K_RESET LSRESET, STO, ST3 FA 
bees 396 TRAN DAPSK_ TERMINATE, FALSRESET STO, $13 ; Inappropriate FA 
oe30 $31 TRAN x ALSINV_CMPFUNC,ST3, $13 oA 
0238 399 STATE ST3A FA 
0238 400 TRAN FALSNEXT_MSG $T3 FA 
0240 401 TRAN  DAPSK_TIM_MSG, FALSDECODE_TIM, §T3A, ST3 FA 
0248 rh TRAN DAPS$K— PRO “MSG, FALSDECODE_PRO, ST3A, ST3 FA 
0250 40 TRAN  DAPSKICMP_MSG, FALSDECODE_CMP, ST3A_1, ST3 FA 
0258 404 TRAN . FALSOUT_OF-SEQ, ST3, $T3 FA 
0260 405 FA 
0260 406 STATE oT. 1 FAI 
0260 407 TRAN” DAPSK_CHANGE_E, F ALSCHANGE, STO, $T3 FA 
0268 408 TRAN - ALSINV_CMPFUNC, 313° $13 4p 
FAI 
FAI 
FAI 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
FA 
| FA 
FA 
FA 
FA 
FA 
FA 
FA 
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= STATE TRANSITION PROCESSING 16-SEP-1984 01:47: AX/VMS Macro _V04-00 Page 11 | 
ST4 == RAM RETRIEVAL met RES, FAL.SRCJFALSTATE.MAR; 1 ” (9) | 

7 410 .SBTTL ST4 == RAM RETRIEVAL | 
7 41 
7 aig ++ 
f $1? ; Record access mode retrieval state (for $GET/S$READ). 
7 415 ; Send the specified record/block to the partner process. Engage in error 
7 218 ; recovery q*etogue on encountering an end-of-file condition or on an error 
if rh ; in accessing the data. 
f 238 3 State Value Action=-Routine Success Failure Comments 

8 7 421 STATE $14 
7 4 ¢ TRAN e FALSRETRV_RAM, ST2, ST4A 

0278 4 

0278 424 STATE ST4A 

0278 425 RAN P FALSNEXT_MSG ST4A 

9280 426 TRAN  OBAPSK_CTL_MSG, FALSDECOBE_CfL, $12.1, ST4A 

0288 4 TRAN  DAPSKICMPIMSG, FALSDECODE-CMP, ST2-2, ST4A 

0290 428 TRAN  DAPSKICONTMSG, FALSDECODE-CON, ST4A_1, ST4A 

0 98 4 ; TRAN, FALSOUT_OF-SEQ, ST4A,  ST4A 

35a 431 STATE ST4A_1 

02A0 $38 TRAN DAPSK_ABORT P ST4A, EXIT ; Ok to allow it 

ogae 43 TRAN DAPSK-RESUME, ST4A, EXIT ; Inappropriate 

0280 434 TRAN DAPSK_RETRY, ST4, EXIT 

0288 435 TRAN DAPSKISKIP_REC, FALSUNS_CONFUNC,ST4A, ST4A 

0200 436 TRAN P FALSINV_CONFUNC,ST4A, ST4A 
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-SBTTL ST5 == RAM STORAGE 


++ 
Record access mode storage state (for SPUT/SWRITE). 


Store each record/block received from the partner process until directed 
to perform another function. Engage in error recovery dialogue on an error 
in storing the data. 


Sete Ge Ge Ge Ge Ge te 


SIT 

RAM STOR 

(8 4 

C 135 

C8 9440 

C8 44] 

C 44g 

C8 44 

CB 44h 

CB 445 

C 446 

: ret State Value Action=-Routine Success Failure Comments 

C8 449 STATE $T5 

C8 450 TRAN FALSNEXT_MSG, $T5 
0200 451 TRAN  OAPSK_DAT_MSG, FALS$STORE_RAM, §15,  ST5A 
0208 $36 TRAN DAPSK_CTL_MSG, FALSDECODE_CTL, ST2_1, $15 
0260 45 TRAN  DAPSKICMPIMSG, FALSDECODE-CMP, 1222, $15 
O2E8 454 TRAN, FALSOUT_OF-SEQ, ST5; $T5 
O2FO 455 
O2FO 456 STATE STSA 
O2FO 457 TRAN, FALSINTE_MSG, , ST5SA 
O2F8 458 TRAN DAPSK_CON_MSG, FALSDECOBE_CON, ST5A_1, ST5SA 
0300 459 TRAN, FALSOUT_OF-SEQ, ST5A,  STSA 
0398 460 
0308 461 STATE ST5A_1 
0308 46¢ TRAN” DAPSK_ABORT, ST5B, EXIT 
0310 46 TRAN DAPSK-RESUME, FALSUNS_CONFUNC,ST5A, STSA 
0318 464 TRAN  DAPSKIRETRY,  FALSUNS-CONFUNC,ST5A,  ST5A 
0320 465 TRAN  DAPSKSKIP_REC, STS, EXIT 
0328 466 TRAN, FALSINV_CONFUNC,ST5A, ST5A 
0330 467 
0330 468 STATE $158 
0330 469 TRAN, FALSNEXT_MSG, , $T5B 
0338 470 TRAN DAPSK_CMP_MSG, FALSDECOBE CMP, ST2.2, S15B 
0340 471 TRAN DAPSKIDATIMSG, FALSDISCARD_DAT,ST56, EXIT 
0348 472 TRAN, FALSOUT_OF_SEQ, ST5B, ST5B 
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v04-000 ST6 == FIM RETRIEVAL ~SEP-1984 01:17: FAL.SRCIJFALSTATE.MAR; 1 (11) 
; tee -SBTTL ST6 == FIM RETRIEVAL 
428 p++ 
2 $f ; File transfer mode retrieval state (for SGET/S$READ). 
5 138 : Send each record/block remaining in the file to the partner process. Engage 
50 480 ; in error recovery dialogue on encountering an end-of-file condition, on an 
035 481 ; error in accessing the data, or if directed by partner to stop before the 
035 ‘4 ¢ ; end-of-file is reached. 
5 484 ; 
5 485 
5 4 $ STATE S16 
5 4 RAN P FALSTEST_MSG, ST6A, 
035 488 TRAN FALSRETRU_FTM, ST6, ST6A 
0360 489 
0360 490 ST6A 
0360 491 TRAN P FALSNEXT_MSG, ‘ ST6A 
0368 49@ TRAN  DAPSK_CMP_MSG, FALSDECOBE_CMP, ST2_2, ST6A 
0370 49 TRAN DAPSKICONTMSG, FALSDECODE-CON, ST6A_1, ST6A 
037 494 TRAN e FALSOUT_OF_SEQ, ST6A, ST6A 
te 495 
380 496 ST6A_1 
0380 497 TRAN DAPS$K_ABORT ° ST6A, EXIT : Ok to allow it 
8358 498 TRAN DAPSK-RESUME, , ST6, EXIT ; Same as retry 
390 6499 TRAN DAPSK_RETRY, ST6, EXIT 
0398 500 TRAN  DAPSKISKIP_REC, FALSUNS_CONFUNC,ST6A, ST6A 
03A0 501 TRAN ° FALSINV_CONFUNC ,ST6A, ST6A 
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Value 


bAPSK_DAT_MSG, 
DAPSK_CMP_MSG, 


HAPSK_CON_MSG, 


DAP$K_ABORT 

DAPSK RESUME , 
DAPSK-RETR 
DAPSK-SKIP_ 


° 


HAPSK_CMP_MSG, 
DAPSK-DAT—MSG, 


“SEP=1984 
-SBTTL ST7 == FTM STORAGE 


16-SEP-1984 01:47: AX/VMS Macro _V04-00 
B4:49:97 EPALOSRCIPALSTATESMAR; 1 


++ 
File transfer mode storage/append state (for S$PUT/S$WRITE). 


Store each record/block re 


eived from partner process until dire 
Engage in error recovery d 


alogue on an error in accessing the-f 
Action=-Routine Success Failure Comments 


FALSDECODE_CMP, S$T2_2, 
FALSSAVE_MSG, ST7A, 


FALSINTE_MSG, , 
FALSDECOBE_CON, S$ 
FALSOUT_OF-SEQ, S$ 


FALSBIT_BUCKET, ST7B 


FAL$BIT_BUCKET P 
FALSINV~CONFUNC,ST7A, 


FALSOUT_OF SEQ, ST7B. 


sfee to stop. 
le. 
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v04-000 ST8 == DIRECTORY LIST ety 7 8:95:98 YRAL SRCIPAL STATE MAR: 1 . (13) 

: rh ~SBTTL ST8 -=- DIRECTORY LIST 

4 45 ;++ 

r $ 3; Directory List retrieval state. 

4 rt: : Send a file specification and requested file attributes for each directory 

4 49 ; found fo partner process. Engage in error recovery dialogue on an error in 

4 50 ; accessing directory information or if directed by partner to stop before 

r 2] 3; the function is completed. 

r i ; State Value Action-Routine Success Failure Comments 

4 5 STATE ST8 

4 2$ TRAN ‘ FALSTEST_MSG ST8A, 

4h g TRAN; FAL$DIR_SEARCH, STBA 

44 38 TRAN; FALSCHECK_NMF, $10, 5ST8 ; True/False 

45 60 STATE STBA 

45 61 TRAN P FALSNEXT_MSG, ST8A 

45 6¢ TRAN  OAPSK_CMP_MSG, FALSDECOBDE_CMP, $18A_1, STBA 

Be 88 2° TRAN DAPSK_CON_MSG, FALSDECODE_CON, ST8A_2, ST8A 

BeS8 +e: TRAN a FALSOUT_OF_SEQ, ST8A,  ST8A 
be 58 208 STATE ST8A_1 

rth 56 TRA DAP$K_CLOSE, FALSDIR_END, STO, EXIT : 
047 568 TRAN DAPSK_TERMINATE,FALS$DIR_END, STO, S13 ; Inappropriate 
ott 289 TRAN . FALSOUT_OF_SEQ, ST8A,  STB8A 
0488 571 STATE ST8A_2 
0488 276 TRAN DAPSK_SKIP_REC, ST8, EXIT ; Goto next file 
0490 57 TRAN DAPSKTRETRY, | FALSUNS_CONFUNC,STBA,  STBA 
0498 574 TRAN . FALSINV_CONFUNC,ST8A,  STB8A 


SN 
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v04-000 ST9 == WILDCARD FILE RETRIEVAL ~3EE=1382 te 17: ‘3 PRAL SRCIFALSTATE MAR: 1 ° (14) 
4A 2 .SBTTL ST9 == WILDCARD FILE RETRIEVAL 
4A 4 3+ 
an fie $ Wildcard file retrieval state. 
- 1° State Value Action-Routine Success Failure Comments 
4A Q STATE $19 
4A 4 TRAN P FALSTEST_MSG,  ST9A, 
4A8 585 TRAN, FALSFIL_SEARCH, ST9A 
480 5 6 TRAN; FALSCHECK_NMF, §$TO, : True/False 
4B ; f TRAN ; FALSOPEN, ST9A,  ST9A 
b4cg 89 STATE ST9A 
4C 590 TRAN FALSNEXT_MSG ST9A 
04C8 331 TRAN  DBAPSK_CTL_MSG, FALSDECODE_CTL, $T9A_1, ST9A 
O4p9 3¢ TRAN  DAPSKICMP_MSG, FALSDECODE-CMP, ST9Az¢. ST9A 
04D 59 TRAN DAPSK_ “CON-MSG, FALSDECODE-CON, ST9A_3, ST9A 
04E0 594 TRAN FALSOUT_OF-SEQ, ST9A,  ST9A 
04E8 595 
04E8 596 STATE ST9A_1 
04E8 597 DAPSK_CONNECT, FALSCONNEC ST9A, ST9A 
04FO 598 TRAN  DAPS$KIGET_READ, FALSCHECK lta, T9B, EXIT 
O4F8 599 TRAN 5 FALSINV _CTLFUNC, ST9A,  ST9A 
0500 600 
0500 601 STATE $T9A_2 
0500 608 TRAN” DAPSK_DISCONN, FALSDISCONNECT, ST9A,  ST9A 
0508 60 TRAN DAPS$K_CLOSE, ALSCLOSE, ST9, ST9A ; Goto next file 
$218 604 TRAN DAPSK SKIP_FILE, $19. EXIT ; Goto next file 
051 605 TRAN — DAPSKTERMINATE, ‘te ALSCLOSE, 510, ST9A =: ‘Stop operation 
0920 606 TRAN ss FALSINV _CMPFUNC,ST9A, ST9A 
09 8 608 STATE ST9A_3 
528 609 TRAN DAPS$K =RESUNE . ‘ ST9B, EXIT ; Same as retry 
0530 610 TRAN  DAPSK"RE ST9B, EXIT 
0538 611 TRAN DAPS$K~SKIP “REC, FAL SUNS _ CONFUNC,ST9A.  ST9A 
o348 61¢ TRAN ‘ FALSINV~CONFUNC,ST9A,  ST9A 
0548 614 STATE S$T9B 
0548 615 TRAN : FALSTEST_MSG,  ST9A, 
0550 616 TRAN ; FALSRETRO_FTM, ST9B,  ST9A 
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«SBTTL ST11 == WILDCARD FILE EXECUTION 


p++ 
; Wildcard file execution state. 


v04-00 
STA ATE.MAR;1 


. 
. 


é 
a 


Paqe 


True/False 


: State Value Action-Routine Success Failure Comments 
STATE $T11 
TRAN, FALS$FIL_SEARCH, , STO 
TRAN FALSCHECK_NMF, STO 
TRAN, FALSEXECUTE, ST14,  STIIA 
STATE STI1A 
RAN, ALSNEXT_MSG, STI1A 
TRAN  DAPSK_CON_MSG, FALSDECOBE “CON, §T11A_1,ST11A 
TRAN, FALSOUT_OF-SEQ, ST11A, ST11A 
STATE STitA A_1 
TRAN ~ DAPS$K_SKIP_REC, ST11, EXIT 
TRAN —DAPSKRETRY, FALSUNS_CONFUNC,STI1A, STI1A 
TRA ; FALSINV-CONFUNC,ST11A, ST11A 
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~SBTTL ST12 == FILE RENAME 


FALSTATE 
v04-000 


p++ 
3 Non-wildcard file rename state 


T 

E 

4 

5 ° 

: : State Value Action-Routine Success Failure Comments 
STATE $T12 
4 

5 


AOOOMMUVIMUNIVIUIMUIIU 
OOO TMmMmmmmmmmmmmermn 


TRAN FALSNEXT_MSG $11 
TRAN  6APSK_NAM_MSG, FALSDECOBE_NAM, $112.1, 511 
TRAN, FALSOUT_OF-SEQ, ST12, ° ST1 

STATE $112.1 
TRANT , FALSRENAME , S10, $70 
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«SBTTL $T13 == WILDCARD RENAME 


p++ 
: Wildcard file rename state. 


: State Value 
STATE $113 
TRAN 
TRAN  DAPSK_NAM_MSG, 
TRAN, 
STATE ST13A 
TRAN 
TRAN; 
TRAN 
STATE $1138 
TRAN, 
TRAN  DAPSK_CON_MSG, 
TRAN, 
STATE $113B_1 
TRAN ~ DAPS$K_SKIP_REC, 
TRAN — DAPSKTRETRY, 


TRAN ’ 


Action-Reutine 


FALSNEXT_MSG, $113 
FALSDECOBE_NAM, ST13A, $113 
FALSOUT_OF-~SEQ, $113, $113 
FAL$FIL_SEARCH, , $T0 
FALSCHECK_NMF, STO 
FALSRENAME, ST13A, $1138 
FALSNEXT_MSG, , $1138 
FALSDECOBE_CON, $113B_1,$1138 
FALSOUT_OF-SEQ, $T13B; $1138 


F ALSUNS_ CONF UNC 
FAL$INV~CONFUNC 
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; End of 
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ACTION 
COUN 
DAP$B_ -ACCFUNC 
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FALSO™ _DIRNAME 
FAL$Q_FALLOG 
FALS$Q"FLG 
FAL$Q_MBX 
FALS$Q_MBX10SB 
FALSQ"RCV 
FALSQ"RCVIOSB 
FA MS 
FALSQ_ Be 


ney 

FAL $W_DAPBUF S1Z 
FALSW~ Phecks ¥ 
FALSW_L 


BS 
FAL$W_USE~SYS 


oO 
oO 


Ooo Cooooooooo 
po fojlolelolololelolo) 
po fofofelelolelolelq) 
SOAVMEWWOOOUM 

Pato lolol: lolol. la) 


ope feo fej olelelolojlololo) 
al 


pope jo felololololololeololqo) 
SoOoOQOoOoooooo°oo 


=) 
Oo 
o 
oo 


0000004 
00000028 


ReEeeeeee 
Reeeeenre 
Reeeeeee 
REReReee 
Reeerenre 
Reeeeeee 
Reeeeere 
greeaeeene 
geereree 


00000000 
00000000 


Reerenree 
geeekere 
rererere 
eeekeeee 
greeeeree 
gerereree 


00 
00001C00 
00000400 
00000900 


00001D00 
00001E00 


geerrere 
grerrenee 


OOO01A 
4 70 
001 


C 

a 
000007 
QO000A 


00000A2 


< e OK O O O O O 
Ooooocoooooooo°o°oo 
WANA WAN NID AINAAANNA 


<< OC OC 


= OK 
oo 
WGN 


} aaa >> 
—b 


— 


os 


ss 


— 


SOooooooooooooooooooooooooooooooooooooooooooOoooooooO 


INTIWINIAID 2 S| SP QOOOOOCTWWWIWID S Fy OOOCCO 


SOOoQoooooooooooooooooooooooooooooooooooooooooOooOooOoOoOoOOoOOoOOoOOoOO 
OS OL M S NP OM DNOM FO MOL BWNVIO NE LOOCOMID OAIM S NL O09 & NRT D FO WO 


Page G 


FALSTATE - STATE TRANSITION PROCESSING 19-3661 984 01:47: 93 AX/VMS Macro 
Psect synopsis -SEP-1984 01:17: FAL. SRCIF ALSTA 
ae + 
! Psect “synopsis. : 

PSECT name Allocation PSECT No. Attributes 
. ABS = 00000000 ( -)» 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 

s$ et 444 ( 8192.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSH E 

SCODE QOOOOOSF ¢ 63.) be ( §°} NOPIC USR CON REL LCL NOSHR EXE RD 
FALSSTATE_TABLE 00000670 ( 1648.) 03 ¢ -) NOPIC USR CON REL LCL SHR NOEXE RD 

poe ern omer en eoe een ancasoman 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.06 00:00:00.68 
pounene processing 105 00:00:00.40 Bp +8838 97 
a7 308 ai 5 4 00:00:34.94 

Syabol table sort 0 00:00:00.54 00:00:01.93 
ass 2 141 00:00:02.14 00:00:07.30 
Symbol table output 23 00:00:00.12 00:00:00.44 
Psect synopsis output 3 00:00:00.01 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 611 00:00:12.97 00:00:49.28 


The working set Limit was 1350 pages. 

70250 bytes_(138 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 597 non-local and 5 Local symbols. 
711 source Lines were read in Pass 1, producing 26 object records in Pass 2. 

18 pages of virtual memory were used to define 17 macros. 


ee 


Macro Library name 
_$255$DUA28: CFAL.OBJJFAL.MLB; 1 6 
“$255$DUA28: (SYSLIBISTARLET. MLB;2 

TOTALS (all Libraries) 


666 GETS were required to define 10 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:FALSTATE/OBJ=OBJ$:FALSTATE MSRC$:FALSTATE/UPDATE=(ENHS$:FALSTATE)+LIB$:FAL/LIB 
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